***************************************************************************
matrix b=e(b)
local names: colfullnames b
matrix V=e(V)
forvalues i=1/$dep {
local b`i'=round(b[1,`i'],0.00001)
}

local newname: word 1 of `names'

matrix results$numvar=J(1,8,.)
matrix colnames results$numvar= b t-stat pneg ppos R2_a obs vary varx
matrix rownames results$numvar=`newname' 

forvalues i=1/1 {
mat results$numvar[`i',1]=`b`i''
mat results$numvar[`i',2]=$tstat
mat results$numvar[`i',3]=$ppos
mat results$numvar[`i',4]=$pneg


}
mat results$numvar[1,5]=$adj_r2
mat results$numvar[1,6]=$obs

mat results$numvar[1,7]=$vary
mat results$numvar[1,8]=$varx

***************************************************************************

